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**F ILE**#1D**LABIOCOM 
LL AAAAAA BBBBBBBB III 000000 ccccccce 000000 MM MM 
LL AAAAAA BBBBBBBB HII 000000 CCCCCCCC 000000 MM MM 
LL AA AA BB I] 00 oo cc 00 00 MMMM MMMM 
LL AA AA 8B BR I] 00 00 CC 00 0 MMMM 
LL AA AA BB BB I] 00 00 CC 00 00 MM MM MM 
LL AA AA I] 00 00 CC 00 00 MM MM MM 
LL AA AA BBBBBBBB I] 00 00 CC 00 00 MM 
LL A I] 00 00 CC 00 0 MM MM 
LL AAAAAAAAAA §BB II 00 00 CC 00 00 MM MM 
LL AA BB BB II 00 00 CC 00 00 MM MM 
LL A BR BR II 00 00 CC 00 00 MM MM ‘ 
LL AA AA 6B BB I] 00 00 CC oc 00 MM li scabs 
LLLLLLLLLL AA AA III 000000 ccccccce 000000 MM MM ee 
LLLLLLLLLL AA AA BBBBBBBB HII11 000000 CCCCCCCC 000000 MM MM ehints 
FFFFFFFFFF 000000 RRRRRRRR 
FFFEFFFFFFF 000000 RRRRRRRR 
FF 00 00 RR RR 
FF 00 00 RR RR 
FF 00 00 RR RR | 
FF 00 00 RR R 
FFFFFFFF 00 00 RRRRRRRR | 
FFEFFFFEF 00 00 RRRRRRRR 
FF 00 00 RR RR 
FF 00 RR RR 
FF 00 RR —sRR 
FF 00 RR RR 
FF 000000 RR RR 
FF 000000 RR RR 
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‘File: LABIOCOM.FOR 
: Version ‘v04-000' 


eRe AE AREA RERAAAAAE REAR ARAA EE AEEEHE EERE eee eee eee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
‘* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


® 

® 

® 

4 ® 
it THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED 
is ONLY IN ACCORDANCE WITH THE TERMS OF LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY OTHER © 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
* 

® 

® 

oe 

* 

® 

® 

® 

® 

® 


' 

. 1 
' j 
' wy 
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nw 
Cc 
> 
“” 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
nd ComPOkat ite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
‘* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VeRO Re RARE AREA EEE RAE E AAAS 
' 


Logical Function LABIO_INIT( PRIVILEGE ) 


This routine is used to attach a LABIO user program to the 
! LABIO system. It associated the two event flag clusters and 
maps to the LABIO global data section. 


INPUT: PR.VILEGE = Privileged LABIO users can set this 
to 1 to allow write access to the data base. 
ALL others must set this to 0. 


OUTPUT: None - Currently will siuars ¢ return with success code. 
If an error occurs, FATA is called to display 
the error messages and STOP THE PROCESS! 


Include ‘*LABCHNDEF. 
Logical*4 SYS$AS atere 


coe 
External SECSM_ ” 


YSSMGBLSC SUCCESS ,SYSSWAITFR 


' Create event flag cluster EF_NOTIFY and associate with event flags 64-95 
! These are used to notify the Data Acquisition process. 


On ige SYSSASCEFC( ZVALCEF _NOTIFY_1),EF NOTIFY_CLSTR,,) 
not. 
1 Call FATAL_ERROR( SUCCESS, "CREATING EVENT FLAG CLUSTER") 


Create event flag cluster EF_STATUS and associate with event flags 96-127 
These are used to notify and report the status of the user buffers 


LABIOCOM.FOR;1 16-SEP-1984 17:09:19.8 Page 2 | 
| 
pyccess = SYS pAscerc RVAL (EF STATUS_1) EF STATUS_CLSTR,,) 

-not - SuCC 
Call FATAL ERROR( SUCCESS, "CREATING EVENT FLAG CLUSTER') | 


1 
' 
; Want for event f CONNECT (non-privileged) 


to the ents tag ert section created ses 1/0 program 
! EF_DATA_ACQ (pr 9 bea) before ere te 
| 


SECTION(1) = ZLoc(LABIO_BUFFER 
SECTION(2) = %Loc(LABIO BUFFER 8} a 


SECTION_FLAGS = 0 ‘Default flags 
If( PRIVILEGE . 0) en 
SECTION FLAGS= Melos (SECS RT) 
ecatt SYSSWAITFR( fvatt er” DATA_ACQ ) ) 
Call SYSSWAITF&( XVal( EF_CONNECT ) ) 
End If 


FLAGS), "LABIOCOMMON', 
> ‘mapping data section’) 


SUCCESS = etreneeeers SECTION,, 44S 


If( .mot. SUCCESS ) Call FATAL_ERROR(S 
LABIO_INIT = SUCicSS 

Return 
End 


“oO 
“ve 
* Sn 
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FATAL_ERROR = FATAL ERROR HANDLER 
This routine is used to report a fatal error and exit the image 


INPUT: ERROR CODE = SYSTEM ERROR CODE TO REPORT 
ERROR_MESSAGE = ERROR MESSAGE TO BE PRINTED 


| 
OUTPUT: NONE | 
>>>> THIS ROUTINE DOES NOT RETURN <<<<< 
FUNCTION: TYPES the message | 
‘process name-FATAL ERROR - error_message' | 

Then prints system message corresponding to ERROR_CODE | 

| 


Finally, exits image by calling LIBSSTOP 


Subroutine FATAL_ERROR(error_code,error_message) 


Integer*4 ERROR_CODE 

Character ERROR MESSAGE ®( 

Logical*4 SUCCESS, SPSS EREMOX, SYSSGETJP] 
Integer*2 JP12(8) ,PROCESS_NAME_L 
Integert4 JP14(4) 

Character*15 PROCESS NAME 

Equivalence (JPI2,J 


PT4) 
Parameter JPI$ PReWAMS”310°X 
: Get the process name 


JPI2(2) = ‘Want process name 

JP14(2) = TLosTPROCE SS _NAME ) ‘Address of process name 
JPI14(3) = ZLoc(PROCESS_NAME_L) ‘Address of process name Length 
JPI4(4) = 0 'Terminate List 


Call SYSSGETJPI(,,,JP14,.,) 
Print the process name and error message 

Type 100, PROCESS_NAME(1:PROCESS_NAME_L) ,ERROR_MESSAGE 
: Print the error message corresponding to ERROR_CODE and exit | 
Call LIBSSTOP( X%Val(ERROR_CODE) ) | 
100 Format(* ‘A,* = FATAL ERROR ',A) | 

Stop 


| 
! 
} JP12(1) is ‘Number of elements in name | 
| 


END 
'CEnd of File) 


AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 


0138 


